home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 1-2.iso / ELINK / 14-DAY / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 155 < prev    next >
Text File  |  1997-02-20  |  9KB  |  269 lines
  1. // -----
  2. // VDL155.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6. //Find Dialog
  7. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  8. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  9. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  10.  
  11. //This section contains all localizable string constants for this VDL program. Be sure to 
  12. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  13. //You may also flatten multiline constants into a single line, if you prefer
  14.  
  15. //Used on the Mac
  16. #define kLit1 "Replace"
  17. #define kLit3 "Done"
  18.  
  19. #if Platform_Mac
  20. #define kLit7 "Find"
  21. #else
  22. #define kLit7 "&Find"
  23. #endif
  24.  
  25. #define kLit8 "Partial Word"
  26. #define kLit9 "Entire Word"
  27. #define kLit12 "Case Sensitive"
  28. #define kLit13 "Search Backwards"
  29. #define kLit14 "Wrap Around"
  30.  
  31. //Used on windows, must include '&' char for hotkey. Must be unique.
  32. #define kLit2 "Re&place"
  33. #define kLit4 "&Done"
  34. #define kLit5 "Replace &All"
  35. #define kLit6 "Repla&ce and Find"
  36. #define kLit10 "Partia&l Word"
  37. #define kLit11 "&Entire Word"
  38. #define kLit15 "Case &Sensitive"
  39. #define kLit16 "Search &Backwards"
  40. #define kLit17 "&Wrap Around"
  41.  
  42. #define kLit18 "Fi&nd:"
  43.  
  44. #define kLit19 "&Replace With:"
  45.  
  46. //Localized Fonts
  47.  
  48. //Font used for the find and replace edit text
  49. #define kEditTextFont Font = EditFont
  50.  
  51. //Font used for the controls
  52. #define kControlFont    Font = SystemFont
  53.  
  54.  
  55.  
  56. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  57. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  58. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  59.  
  60.  
  61.  
  62. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  63. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  64. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  65.  
  66. //This section contains integer constants that are used to format this VDL program.
  67. //These are localizable - they only need to be changed if the localized strings 
  68. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  69.  
  70. //Width of the find button
  71. #define kFindButtonWidth                 75
  72.  
  73. //Widths of all the options buttons in the middle of the dialog
  74. #define kOptionsButtonsWidth             150
  75.  
  76. //Offset to the left of the first column of options buttons
  77. #define kOptionsButtonsHOffset         108
  78.  
  79. //Width of the "Find:" and "Replace With:" labels. The edit text takes its width from the 
  80. //dialog, which is computed automatically.
  81. #define kFindLabelWidth                 100
  82.  
  83. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  84. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  85. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  86.  
  87. //No further localizable data past this point
  88.  
  89. /************************** END LOCALIZABLE DATA ***************************************************/
  90. /************************** END LOCALIZABLE DATA ***************************************************/
  91. /************************** END LOCALIZABLE DATA ***************************************************/
  92.  
  93.  
  94. #if Platform_Mac
  95.     #define dlogBack BackColor = {65535, 65535, 65535}
  96. #else
  97.     #define dlogBack BackColor = Dialog
  98. #endif
  99.  
  100. #define EH EnabledHelpString =
  101.  
  102.  
  103. #if Platform_Mac
  104.     Define(ReplaceButton)
  105.         CancelButton( kLit1, 1167, "None", /*Width = 88,*/
  106.                           ExtraCommand = 33906 ); // Command-R
  107. #else
  108.     Define(ReplaceButton)
  109.         CancelButton(kLit2, 1167, "None", /* Width = 88*/);
  110. #endif
  111.  
  112. #if Platform_Mac
  113.     Define(CancelFindButton)
  114.         CancelButton(kLit3, 1070, "None", /*Width = 62,*/ ExtraCommand = 314);
  115. #else
  116.     Define(CancelFindButton)
  117.         CancelButton(kLit4, 1070, "None",  /*Width = 62*/);
  118. #endif
  119.  
  120.  
  121. Define(Divider)
  122.     Margin(6,0,3,0,Width = UseParent, dlogBack)
  123.         VList(Width = UseParent)
  124.             {
  125.             Spacer(Width = 0, Height = 4, ScaleV);
  126.             Spacer(Height = 1, Width = UseParent, BackColor = {20000,20000,20000});
  127.             Spacer(Height = 1, Width = UseParent, BackColor = {62000, 62000, 62000});
  128.             Spacer(Width = 0, Height = 4, ScaleV);
  129.             }
  130.  
  131.  
  132. DeclareNamedStatement("Buttons")
  133.     HList(dlogBack)
  134.         {
  135.         Call(ReplaceButton);
  136.         
  137.         #if Platform_Mac
  138.         Spacer(Width = 1, Height = 0);
  139.         #else
  140.         Spacer(Width = 5, Height = 0);
  141.         #endif
  142.         
  143.         CancelButton(kLit5, 1168, "None" /*, Width = 88*/);
  144.         
  145.         #if Platform_Mac
  146.         Spacer(Width = 1, Height = 0);
  147.         #else
  148.         Spacer(Width = 5, Height = 0);
  149.         #endif
  150.         
  151.         CancelButton(kLit6, 1169, "None" /*, Width = 126 */);
  152.         Spacer(Width = 8, Height = 0);
  153.         Call(CancelFindButton);
  154.         Spacer(Width = 3, Height = 0);
  155.         FramedButton(kLit7, 1071, "None" , Width = kFindButtonWidth );
  156.         } // HList(dlogBack)
  157.  
  158.  
  159. DeclareNamedStatement("Options")
  160.     HList(Width = UseParent, dlogBack)
  161.         {
  162.         Spacer(Width = kOptionsButtonsHOffset, Height = 0);
  163.         Switch (docIsRoman)
  164.             {
  165.             case 1:
  166.                 VList()
  167.                     {
  168.                     #if Platform_Mac
  169.                         //Radio buttons
  170.                         WidowRadioButton(kLit8, searchStringType, 0, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  171.                         Spacer(Height = 2);
  172.                         WidowRadioButton(kLit9, searchStringType,1, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  173.                     #else
  174.                         //Radio buttons
  175.                         RadioButton(kLit10, searchStringType, 0, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  176.                         Spacer(Height = 2);
  177.                         RadioButton(kLit11, searchStringType,1, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  178.                     #endif
  179.                     }
  180.             
  181.             case 0:
  182.                 /* For non-roman documents, we disable the partial/entire word controls.
  183.                  * "26665" is a made-up CommandCode which, presumably, will never
  184.                  * be bound.
  185.                  */
  186.                 VList()
  187.                     {
  188.                     #if Platform_Mac
  189.                         //Radio buttons
  190.                         WidowRadioButton(kLit8, 26665, 0, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  191.                         Spacer(Height = 2);
  192.                         WidowRadioButton(kLit9, 26665,1, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  193.                     #else
  194.                         //Radio buttons
  195.                         RadioButton(kLit10, 26665, 0, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  196.                         Spacer(Height = 2);
  197.                         RadioButton(kLit11, 26665,1, Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  198.                     #endif
  199.                     }
  200.             } // Switch (docIsRoman)
  201.         //Spacer(Width = 100, Height = 0);
  202.         VList()
  203.             {
  204.             #if Platform_Mac
  205.                 WidowCheckBox(kLit12, caseSensitive,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  206.                 Spacer(Height = 1);
  207.                 WidowCheckBox(kLit13, searchBackwards,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  208.                 Spacer(Height = 1);
  209.                 WidowCheckBox(kLit14, wrapAround,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  210.             #else
  211.                 CheckBox(kLit15, caseSensitive,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  212.                 Spacer(Height = 1);
  213.                 CheckBox(kLit16, searchBackwards,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  214.                 Spacer(Height = 1);
  215.                 CheckBox(kLit17, wrapAround,Width = kOptionsButtonsWidth, Height = 18, kControlFont);
  216.             #endif
  217.             }
  218.         Spacer(Width = 10, Height = 0);
  219.         Spacer(Width = UseParent, Height = 0);
  220.         }
  221.  
  222. Margin(4, 0, 4, 2, dlogBack)
  223.     VList()
  224.     {
  225.     Spacer(Width = 0, Height = 5);
  226.     HList(Width = UseParent)
  227.         {
  228.         Tag(FindText)
  229.             EditText( FindText, kEditTextFont, Width = UseParent,
  230.                          Label = kLit18, 
  231.                          LabelAlignment = Right,
  232.                          LabelWidth =  kFindLabelWidth, 
  233.                          /*DropOnReturn, DropOnEnter, */ NoSmartQuotes,
  234.                          BackColor = {65535, 65535, 65535});
  235.  
  236.         
  237.         Spacer(Width = 5, Height = 0);
  238.         }
  239.     Spacer(Width = 0, Height = 5);
  240.     HList(Width = UseParent)
  241.         {
  242.         Tag(ReplaceText)
  243.             EditText( ReplaceText, kEditTextFont, Width = UseParent,
  244.                          Label = kLit19, 
  245.                          LabelAlignment = Right,
  246.                          LabelWidth =  kFindLabelWidth, 
  247.                         /*DropOnReturn, DropOnEnter, */ NoSmartQuotes,
  248.                         BackColor = White);
  249.         
  250.         Spacer(Width = 5, Height = 0);
  251.         }
  252.     Spacer(Width = 0, Height = 1);
  253.     
  254.     Call(Divider);
  255.     IncludeNamedStatement("Options");        
  256.     Call(Divider);
  257.     
  258.     #if Platform_Win
  259.     Spacer(Width = 0, Height = 5, ScaleV);
  260.     #endif
  261.     
  262.     IncludeNamedStatement("Buttons");
  263.     
  264.     #if Platform_Win
  265.     Spacer(Width = 0, Height = 5, ScaleV);
  266.     #endif
  267.     } // VList
  268.  
  269.